home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Text Case / Case- lower / Case- lower next >
Text File  |  1992-06-08  |  756b  |  44 lines
  1. on startup
  2. global bailout
  3.  
  4. checkTextToolIsOn
  5. if bailout = false then
  6. domenu "Lower case"
  7. end if
  8.  
  9. end startup
  10.  
  11. on checkTextToolIsOn
  12. global bailout
  13. trace on
  14. put "true" into bailout
  15.  
  16. if toolmode <> "textTool" then
  17. answer "The TextTool must be turned on."
  18. else if currentStoryNumber() = "none" then
  19. answer "Text must be selected in a story."
  20. else if item 2 of textcursor = 0 then
  21. answer "Text must be selected in a story."
  22. else
  23. put "false" into bailout
  24. end if
  25.  
  26. end checkTextToolIsOn
  27.  
  28. on help
  29.  
  30.  
  31. put  dialog (preload, 128) into thedialog
  32. put "---a\0" into item2
  33. put "---a\1" into item3
  34. put "---a\2" into item4
  35.  
  36. repeat forever
  37. get dialog(display, thedialog)
  38. if (it = 1) then exit repeat
  39. end repeat
  40. get dialog(dispose, thedialog)
  41.  
  42. end help
  43.  
  44.     <BÏ